(info-insert-file-contents): Avoid conflict with jka-compr.

diff --git a/lisp/info.el b/lisp/info.el
index cb517c9bb3a106060289d0c6d1523c017bfe1179..be58d0650495e956dd419d7f9373b659e3f757a0 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -129,6 +129,12 @@ Do the right thing if the file has been compressed or zipped."
        (setq tail (cdr tail)))
       (setq fullname (concat filename (car (car tail)))
            decoder (cdr (car tail)))
+      ;; check for conflict with jka-compr
+      (if (and (featurep 'jka-compr)
+              (jka-compr-installed-p)
+              (jka-compr-get-compression-info (concat filename
+                                                      (car (car tail)))))
+         (setq decoder nil))
       (or tail
          (error "Can't find %s or any compressed version of it!" filename)))
     (insert-file-contents fullname visit)